unit CaixaEntSaiRecordFr;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, DBCtrls, ActnList, MainRecordFr;

type

  { TCaixaEntSaiRecordFrame }

  TCaixaEntSaiRecordFrame = class(TMainRecordFrame)
    IDUsuarioDBEdit: TDBEdit;
    id_caixa: TDBEdit;
    Label3: TLabel;
    Label5: TLabel;
    tipo: TDBRadioGroup;
    id_entrada_saida_caixa: TDBEdit;
    desc_ent_saida_caixa: TDBEdit;
    valor: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    procedure SalvarActionExecute(Sender: TObject);
    procedure tipoChange(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

implementation

uses
  CaixaEntSaiDM, MainFr, Initializator, MainDM, MainFm;

{ TCaixaEntSaiRecordFrame }


procedure TCaixaEntSaiRecordFrame.tipoChange(Sender: TObject);
var
  IDCaixa: string;
begin
  if (CaixaEntSaiData.DataSetState() in [mdsEditing, mdsInserting]) then begin
    IDCaixa := CaixaEntSaiData.BuscaIDCaixa();
    if (IDCaixa = '') then begin
      if MessageDlg('Confirmação', 'Caixa não está Aberto! Deseja Abrir?',
        mtConfirmation, mbYesNo, 0) = mrYes then begin
        TheControl.ShowFrame(TMainFrame(CaixaInicioRecordFrame));
      end else begin
        TheControl.BackFrame();
      end;
    end else begin
      id_caixa.Text := IDCaixa;
      IDUsuarioDBEdit.Text := IntToStr(MainForm.Usuario);
    end;
  end;
end;

procedure TCaixaEntSaiRecordFrame.SalvarActionExecute(Sender: TObject);
var
  ValorTotal: real;
begin
  ValorTotal := StrToFloatDef(valor.Text, 0);
  CaixaEntSaiData.CaixaEntSaiZQuery.FieldByName('valor').AsFloat := ValorTotal;
  CaixaEntSaiData.CaixaEntSaiZQuery.Post();
  ControlaBotoes();
end;

initialization
  {$I caixaentsairecordfr.lrs}

end.


